* cumule les dbits et crdits de DETAILECRITUREGENE sur le mme compte et 
* compare aux cumuls du fichier BALANCEGENE

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILECRITUREGENE" TO F.DETAILECRITUREGENE ELSE PRINT "OUVERTURE DETAILECRITUREGENE" ;* en lecture
OPEN "","BALANCEGENE" TO F.BALANCEGENE ELSE PRINT "OUVERTURE BALANCEGENE" ;* en lecture

*   EXECUTE 'SETPTR 0,,,,,1, "MODE=RAW",DEST \\SERVEURNT\MATRICEPSON,NOHEAD,NOFMT,EJECT,COPIES 1,BRIEF'

*   PRINTER ON

   EXECUTE 'SELECT DETAILECRITUREGENE PAR 3'

   W_End="FAUX"
   W_Sauve=""
   W_CumulDebit=0
   W_CumulCredit=0

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_DETAILECRITUREGENE FROM F.DETAILECRITUREGENE,W_Cle ELSE ENR_DETAILECRITUREGENE=""
      IF W_Sauve # ENR_DETAILECRITUREGENE<3> THEN
         IF W_Sauve="" THEN
            W_Sauve=ENR_DETAILECRITUREGENE<3>
         END ELSE
            READ ENR_BALANCEGENE FROM F.BALANCEGENE,"N0":W_Sauve ELSE ENR_BALANCEGENE=""
            IF W_CumulDebit=0 THEN
               W_CumulDebit=""
            END
            IF W_CumulCredit=0 THEN
               W_CumulCredit=""
            END
            IF W_CumulDebit # ENR_BALANCEGENE<1> OR W_CumulCredit # ENR_BALANCEGENE<2> THEN
               PRINT W_Sauve
            END

            W_Sauve=ENR_DETAILECRITUREGENE<3>
            W_CumulDebit=0
            W_CumulCredit=0
         END
      END
      IF ENR_DETAILECRITUREGENE<6> # "" THEN
         W_CumulDebit=W_CumulDebit + ENR_DETAILECRITUREGENE<6>
      END
      IF ENR_DETAILECRITUREGENE<7> # "" THEN
         W_CumulCredit=W_CumulCredit + ENR_DETAILECRITUREGENE<7>
      END

   REPEAT

*   PRINTER OFF
*   PRINTER CLOSE

STOP
